home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / AppleScript.a < prev    next >
Encoding:
Text File  |  1998-02-12  |  5.9 KB  |  201 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        AppleScript.a
  3. ;
  4. ;    Contains:    AppleScript Specific Interfaces.
  5. ;
  6. ;    Version:    Technology:    AppleScript 1.1
  7. ;                Release:    Universal Interfaces 3.1
  8. ;
  9. ;    Copyright:    © 1992-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__APPLESCRIPT__') = 'UNDEFINED' THEN
  19. __APPLESCRIPT__ SET 1
  20.  
  21.     IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
  22.     include 'Errors.a'
  23.     ENDIF
  24.     IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
  25.     include 'AppleEvents.a'
  26.     ENDIF
  27.     IF &TYPE('__OSA__') = 'UNDEFINED' THEN
  28.     include 'OSA.a'
  29.     ENDIF
  30.     IF &TYPE('__TEXTEDIT__') = 'UNDEFINED' THEN
  31.     include 'TextEdit.a'
  32.     ENDIF
  33.  
  34. ; **************************************************************************
  35. ;    Types and Constants
  36. ;*************************************************************************
  37.  
  38. ; 
  39. ;    The specific type for the AppleScript instance of the
  40. ;    Open Scripting Architecture type.
  41. ;
  42.  
  43.  
  44. typeAppleScript                    EQU        'ascr'
  45. kAppleScriptSubtype                EQU        'ascr'
  46. typeASStorage                    EQU        'ascr'
  47. ; **************************************************************************
  48. ;    Component Selectors
  49. ;*************************************************************************
  50.  
  51.  
  52.  
  53. kASSelectInit                    EQU        $1001
  54. kASSelectSetSourceStyles        EQU        $1002
  55. kASSelectGetSourceStyles        EQU        $1003
  56. kASSelectGetSourceStyleNames    EQU        $1004
  57.  
  58. ; **************************************************************************
  59. ;    OSAGetScriptInfo Selectors
  60. ;*************************************************************************
  61.  
  62.  
  63. kASHasOpenHandler                EQU        'hsod'
  64. ; 
  65. ;        This selector is used to query a context as to whether it contains
  66. ;        a handler for the kAEOpenDocuments event. This allows "applets" to be 
  67. ;        distinguished from "droplets."  OSAGetScriptInfo returns false if
  68. ;        there is no kAEOpenDocuments handler, and returns the error value 
  69. ;        errOSAInvalidAccess if the input is not a context.
  70. ;    
  71.  
  72. ; **************************************************************************
  73. ;    Initialization
  74. ;*************************************************************************
  75.  
  76. ;
  77. ; pascal OSAError ASInit(ComponentInstance scriptingComponent, long modeFlags, long minStackSize, long preferredStackSize, long maxStackSize, long minHeapSize, long preferredHeapSize, long maxHeapSize)
  78. ;
  79.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  80.         Macro
  81.         _ASInit
  82.             move.l              #$001C1001,-(sp)
  83.             moveq               #0,D0
  84.             dc.w                $A82A
  85.         EndM
  86.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  87.         IMPORT_CFM_FUNCTION ASInit
  88.     ENDIF
  89.  
  90. ; 
  91. ;        ComponentCallNow(kASSelectInit, 28);
  92. ;        This call can be used to explicitly initialize AppleScript.  If it is
  93. ;        not called, the a scripting size resource is looked for and used. If
  94. ;        there is no scripting size resource, then the constants listed below
  95. ;        are used.  If at any stage (the init call, the size resource, the 
  96. ;        defaults) any of these parameters are zero, then parameters from the
  97. ;        next stage are used.  ModeFlags are not currently used.
  98. ;        Errors:
  99. ;        errOSASystemError        initialization failed
  100. ;    
  101.  
  102. ; 
  103. ;    These values will be used if ASInit is not called explicitly, or if any
  104. ;    of ASInit's parameters are zero:
  105. ;
  106.  
  107.  
  108. kASDefaultMinStackSize            EQU        4096
  109. kASDefaultPreferredStackSize    EQU        16384
  110. kASDefaultMaxStackSize            EQU        16384
  111. kASDefaultMinHeapSize            EQU        4096
  112. kASDefaultPreferredHeapSize        EQU        16384
  113. kASDefaultMaxHeapSize            EQU        33554432
  114. ; **************************************************************************
  115. ;    Source Styles
  116. ;*************************************************************************
  117.  
  118. ;
  119. ; pascal OSAError ASSetSourceStyles(ComponentInstance scriptingComponent, STHandle sourceStyles)
  120. ;
  121.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  122.         Macro
  123.         _ASSetSourceStyles
  124.             move.l              #$00041002,-(sp)
  125.             moveq               #0,D0
  126.             dc.w                $A82A
  127.         EndM
  128.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  129.         IMPORT_CFM_FUNCTION ASSetSourceStyles
  130.     ENDIF
  131.  
  132. ; 
  133. ;        ComponentCallNow(kASSelectSetSourceStyles, 4);
  134. ;        Errors:
  135. ;        errOSASystemError        operation failed
  136. ;    
  137.  
  138. ;
  139. ; pascal OSAError ASGetSourceStyles(ComponentInstance scriptingComponent, STHandle *resultingSourceStyles)
  140. ;
  141.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  142.         Macro
  143.         _ASGetSourceStyles
  144.             move.l              #$00041003,-(sp)
  145.             moveq               #0,D0
  146.             dc.w                $A82A
  147.         EndM
  148.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  149.         IMPORT_CFM_FUNCTION ASGetSourceStyles
  150.     ENDIF
  151.  
  152. ; 
  153. ;        ComponentCallNow(kASSelectGetSourceStyles, 4);
  154. ;        Errors:
  155. ;        errOSASystemError        operation failed
  156. ;    
  157.  
  158. ;
  159. ; pascal OSAError ASGetSourceStyleNames(ComponentInstance scriptingComponent, long modeFlags, AEDescList *resultingSourceStyleNamesList)
  160. ;
  161.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  162.         Macro
  163.         _ASGetSourceStyleNames
  164.             move.l              #$00081004,-(sp)
  165.             moveq               #0,D0
  166.             dc.w                $A82A
  167.         EndM
  168.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  169.         IMPORT_CFM_FUNCTION ASGetSourceStyleNames
  170.     ENDIF
  171.  
  172. ; 
  173. ;        ComponentCallNow(kASSelectGetSourceStyleNames, 8);
  174. ;        This call returns an AEList of styled text descriptors the names of the
  175. ;        source styles in the current dialect.  The order of the names corresponds
  176. ;        to the order of the source style constants, below.  The style of each
  177. ;        name is the same as the styles returned by ASGetSourceStyles.
  178. ;        
  179. ;        Errors:
  180. ;        errOSASystemError        operation failed
  181. ;    
  182.  
  183. ; 
  184. ;    Elements of STHandle correspond to following categories of tokens, and
  185. ;    accessed through following index constants:
  186. ;
  187.  
  188.  
  189. kASSourceStyleUncompiledText    EQU        0
  190. kASSourceStyleNormalText        EQU        1
  191. kASSourceStyleLanguageKeyword    EQU        2
  192. kASSourceStyleApplicationKeyword EQU    3
  193. kASSourceStyleComment            EQU        4
  194. kASSourceStyleLiteral            EQU        5
  195. kASSourceStyleUserSymbol        EQU        6
  196. kASSourceStyleObjectSpecifier    EQU        7
  197. kASNumberOfSourceStyles            EQU        8
  198.  
  199.     ENDIF ; __APPLESCRIPT__ 
  200.  
  201.